1 Q=48:R=48:E=48:POKE53280,0:POKE53281,0:PRINT"[159]":PRINT"[147][196]IESES KLEINE [208]ROGRAMM WURDE 1996 VON":PRINT"[205]R.[202]OKER GESCHRIEBEN!":PRINT"[211]IE KOENNEN HIERMIT KLEINE [212]AGEBUCHEIN-":PRINT"TRAGUNGEN UNTERNEHMEN.":PRINT"[194]ITTE KEIN [210][197][212][213][210][206] UND ZUR [203]ORREKTUR NUR"
2 PRINT"DIE [196][197][204]-[212]ASTE BENUTZEN. [193]NDERE [212]ASTEN":PRINT"WIE Z.[194]. [198]-[212]ASTEN ODER [195]URSOR-[212]ASTEN":PRINT"LASSEN DEN [218]EICHENINDEX UNGENAU WERDEN!":PRINT"[214]OR DEM [193]BSAVEN MUSS EINE [196]ATENDISK EIN-";:PRINT"GELEGT WERDEN.([195]=)":WAIT653,2:PRINT"[147][197]IN KLEINES [212]AGEBUCH !"
3 Q=48:E=48:R=48:PRINT"[201]HRE [215]AHL:":INPUT"1=[195]ODIEREN, 2=[196]ECODIEREN";W:PRINT"[194]ITTE [196]ISKETTE EINLEGEN!":PRINTTAB(26)"[212][212].[205][205].[202][202][202][202][145][145]":INPUT"[196]ATUM ";D$:PRINT"[195]ODEZAHLEN X,Y,Z":INPUT"DURCH [203]OMMA GETRENNT ";A,B,C:DIMT(839),T$(839):X=0:IFW=2THEN25
4 PRINT"[147]               GESCHRIEBEBE [218]EICHEN:":PRINT"[147][212]EXTEINGABE (MAX.839 [218]EICHEN)":PRINT"'*' = [197]NDE":PRINT">";
5 GETT$(X):IFT$(X)=""THEN5
6 IFT$(X)="*"THENGOTO19
7 IFT$(X)=CHR$(157)THENR=R-2
8 E=E+1:IFT$(X)=CHR$(20)THENE=E-2
9 IFE=58THENE=48:R=R+1
10 IFR=58THENR=48:Q=Q+1
11 IFE=47THENE=57:R=R-1
12 IFR=47THENR=57:Q=Q-1
13 IFX=839THENGOTO18
14 IFT$(X)=CHR$(13)THENGOSUB30:GOTO5
15 IFT$(X)=CHR$(19)ORT$(X)=CHR$(147)THENRUN
16 POKE1061,Q:POKE1062,R:POKE1063,E:IFQ=47THENQ=48:E=48:R=48:GOSUB30:GOTO5
17 PRINTT$(X);:X=X+1:GOTO5
18 POKE1034,80:POKE1035,12:POKE1036,1:POKE1037,20:POKE1038,26:POKE1039,32:POKE1040,22:POKE1041,15:POKE1042,12:POKE1043,12
19 POKE1044,32:POKE1045,19:POKE1046,1:POKE1047,22:POKE1048,5:POKE1049,14:POKE1050,63:FORY=55306TO55323:POKEY,7:NEXTY
20 GETA$:IFA$=""THEN20
21 IFA$="N"THENGOTO29
22 IFA$="J"THENGOTO24
23 GOTO20
24 OPEN1,8,2,D$+",S,W":PRINT#1,X:FORI=0TOX-1:B=B+(A*C):PRINT#1,ASC(T$(I))+C+B:NEXTI:CLOSE1:GOTO27
25 PRINT"[147]>";:OPEN1,8,2,D$+",S,R":INPUT#1,X:FORI=0TOX-1:B=B+(A*C):INPUT#1,T(I):T(I)=(T(I)-B)-C:IF(I)<0ORT(I)>255THENCLOSE1:PRINT"FALSCHE [197]INGABE":GOTO27
26 PRINTCHR$(T(I));:NEXTI:CLOSE1
27 GETA$:IFA$=""THEN27
28 PRINT"[147]":PRINT"[201]HREN [193]UFFORDERUNGEN WURDE [198]OLGE":PRINT"GELEISTET.                      ":PRINT"[196]RUECKEN [211]IE [195]OMMODORE, UM DAS ":PRINT"[208]ROGRAMM NEU ZU STARTEN!":WAIT653,2
29 RUN3
30 POKE1034,6:POKE1035,1:POKE1036,12:POKE1037,19:POKE1038,3:POKE1039,8:POKE1040,5:POKE1041,32:POKE1042,69:POKE1043,9:POKE1044,14:POKE1045,7:POKE1046,1:POKE1047,2:POKE1048,5:FORD=55306TO55321:POKED,7:NEXTD:FORN=1TO500:NEXTN:FORD=1034TO1054:POKED,32:NEXTD:RETURN